unit UMailSet;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TfrmMailset = class(TForm)
    LabeledEdit1: TLabeledEdit;
    ComboBox1: TComboBox;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    CheckBox1: TCheckBox;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    CheckBox2: TCheckBox;
    LabeledEdit6: TLabeledEdit;
    CheckBox3: TCheckBox;
    Button1: TButton;
    Label1: TLabel;
    Panel1: TPanel;
    btOK: TButton;
    btCancel: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function EnterMailSet(): Boolean;

var
  frmMailset: TfrmMailset;

implementation

Uses Ucommon, UproxySet;
{$R *.dfm}

function EnterMailSet(): Boolean;
begin
  result := false;
  with TfrmMailset.create(application) do
  begin
    if showmodal = mrok then
      result := true;

    try

    finally
      free;
    end;
  end;

end;

procedure TfrmMailset.Button1Click(Sender: TObject);
begin
  EnterProxySet(Ucommon.isProxy);
end;

end.
